home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 65 / 065.d81 / fast boot maker (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  4KB  |  126 lines
  1. 100 ifa=0thenpoke55,0:poke56,56:clr:gosub1000
  2. 110 a=a+1:onagoto130,160,170,340,350,360,370
  3. 120 print"* [204]oad [211]eq. [197]rror *":end
  4. 130 rem program
  5. 140 dimfl$(32)
  6. 150 load"baid.$c000",8,1
  7. 160 load"fastf.$3800",8,1
  8. 170 sys12*16*256
  9. 180 gosub860
  10. 190 print"[159][147]"
  11. 200 print"     [198]ast [204]oader to use :"
  12. 210 h=int(p/2+.5)
  13. 220 fort=1toh
  14. 230 print""right$(str$(t),2)") "fl$(t-1)"";
  15. 240 ift*2=<pthen printright$(str$(t+h),2)")"fl$(h+t-1)
  16. 250 next
  17. 260 print"             [204]oader (1-"mid$(str$(p),2)")"
  18. 270 geta$:ifa$<"1"ora$>"4"then270
  19. 280 print"[199]etting fastloader #"a$"..."
  20. 290 f=val(a$)
  21. 300 print""
  22. 310 f$=fl$(f-1)
  23. 320 remprint"("f$")"
  24. 330 load@(4*16+2)*256,f$,8
  25. 340 ea=peek(174)+256*peek(175)
  26. 350 load@4*16*256,"auto.bin",8
  27. 360 load@(4*16+1)*256,"fbsec.bin",8
  28. 370 remprint"[197]nd address is: ";ea
  29. 380 print"[147][208]rogram to boot ([195][210]=[206]one) ";
  30. 390 gosub1200:i$=w$:ifi$=""then490
  31. 400 i$=left$(i$,15)
  32. 410 printchr$(13)"[194][193][211][201][195] program ? ([217]/[206]) ";
  33. 420 d=64738-1:gosub990:gosub1200:t$=w$
  34. 430 ft=128:ifleft$(t$,1)="y"orleft$(t$,1)="[217]"thenft=0:goto460
  35. 440 printchr$(13)"[197]xecution address ([200]ex.) ";
  36. 450 gosub1200:h$=w$:gosub960:d=d-1:gosub990
  37. 460 fort=1tolen(i$):pokeea+t+4,asc(mid$(i$,t,1)):next:
  38. 470 pokeea,27:pokeea+1,1:pokeea+2,len(i$)orft:pokeea+3,lo:pokeea+4,hi
  39. 480 ea=ea+t+4
  40. 490 print"
  41. 500 m$[178]"*right$nsert peeklank str$isk*":[141]790
  42. 510 [158](3[172]16[170]8)[172]256[170]3
  43. 520 [159]15,8,15,"i0"
  44. 530 [160]15:[153]".";
  45. 540 [159]2,8,1,"auto":[152]2,[199](167)[199](2);
  46. 550 [153]@2,(4[172]16)[172]256,(4[172]16)[172]256[170]252:[160]2
  47. 560 [153]".";
  48. 570 [129]t[178]1[164][195](f$):[151](4[172]16[170]1)[172]256[170]4[170]t,[198]([202](f$,t,1)):[130]
  49. 580 [159]15,8,15:[159]2,8,2,"#":[152]15,"b-p"2;0
  50. 590 [153]@2,(4[172]16[170]1)[172]256,(4[172]16[170]2)[172]256
  51. 600 [152]15,"u2";2;0;18;18
  52. 610 [160]2:[160]15
  53. 620 [153]".";
  54. 630 [139]i$[179][177]""[167]650
  55. 640 [143]
  56. 650 [159]2,8,1,f$
  57. 660 h$[178][202](f$,5,4):[141]960
  58. 670 [152]2,[199](lo)[199](hi);:[153]@2,(4[172]16[170]2)[172]256,ea
  59. 680 [160]2
  60. 690 [153]"load    (NULL)ow copy "[199](34)i$[199](34)" to the boot"
  61. 700 [153]"disk exactly as you spelled it and it
  62. 710 print"will autoboot with a fast load when you:
  63. 720 [153]"(NULL)(NULL)atnstr$"[199](34)":*"[199](34)",8,1      close
  64. 730 print"[212]hat's all there is to it!"
  65. 740 print"[209]uit or [205]ake another boot disk? ([209]/[205])"
  66. 750 geta$:ifa$<>"q"anda$<>"m"then750
  67. 760 ifa$="q"then1300
  68. 770 ifa$="m"then190
  69. 780 end
  70. 790 printm$
  71. 800 ifgthen:print"";:goto820
  72. 810 print"[146]";
  73. 820 g=1-g:print"[145]";
  74. 830 fort=0to10:geta$:ifa$=""thennext
  75. 840 ifa$=""then790
  76. 850 print"[146]";:fort=1tolen(m$):print" ";:next:print"[145]":return
  77. 860 open2,8,0,"$fl.$*"
  78. 870 p=0
  79. 880 input$2,32,a$
  80. 890 input$2,4,d$:l=asc(mid$(d$,3,1))+256*asc(mid$(d$,4,1))
  81. 900 c=len(str$(l))
  82. 910 fort=1toc+1:get#2,a$:ifa$=" "thennext
  83. 920 ifa$="b"thenclose2:return
  84. 930 input$2,25,a$:
  85. 940 fl$(p)=mid$(a$,2,8):p=p+1
  86. 950 goto890
  87. 960 d=0:forj=1tolen(h$):v=asc(mid$(h$,j,1))
  88. 970 ifv>asc("9")thenv=v-asc("a")+asc("9")+1
  89. 980 d=d*16+v-asc("0"):next
  90. 990 hi=int(d/256):lo=d-hi*256:return
  91. 1000 rem message
  92. 1010 gosub1020:return
  93. 1020 poke53281,0:poke53280,0:print"[147][158]"
  94. 1030 fori=1to11:print"[169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][155][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223]";:next
  95. 1040 fori=1to11:print"[152][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][151][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169]";:next:print"[158]"
  96. 1050 fori=217to242:pokei,peek(i)or128:next
  97. 1060 poke214,5:print:fori=1to10:printtab(4)"[221][152]                              [146][158][221]
  98. 1070 [130]:[151]214,6:[151]211,4:[158]58732
  99. 1080 [153]"ortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^"
  100. 1090 [153][163]5)"listnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewsys"
  101. 1100 [151]214,16:[151]211,4:[158]58732
  102. 1110 [153]"/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp"
  103. 1120 [153][163]5)"ononpokefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefresys":[151]214,8:[153]
  104. 1130 a$[178]"ascatn(NULL)(NULL)closepeek(NULL)(NULL)(NULL)closechr$val(NULL)val(NULL)atn(NULL)(NULL)(NULL)":[141]1190
  105. 1140 a$[178]"by (NULL)homas lenzarnecki":[141]1190
  106. 1150 a$[178]"(NULL)(NULL)peek(NULL)right$(NULL)left$valstr$close(NULL)(NULL)close(NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)close#close65":[141]1190
  107. 1160 a$[178]"(NULL)ubscriptions 1-800-831-2694":[141]1190
  108. 1170 a$[178]"(len) 1989 (NULL)homas lenzarnecki":[141]1190
  109. 1180 [151]214,23:[153]:[153][163]12)"  (NULL) (NULL) atnclosestr$closeright$close(NULL)closechr$  ":[142]
  110. 1190 [153][166]20[171][195](a$)[173]2)"print#"a$:[142]
  111. 1200 w$[178]"":[153]">waitcmd";:limit[178]16
  112. 1210 [161]a$:[139]a$[178]"on"[176]a$[178]""[176]a$[178]"cmd"[176]a$[178]""[176]a$[178]""[176]a$[178]"load"[176]a$[178]""[167]1210
  113. 1220 lw[178][195](w$):as[178][198](a$):[139]as[178]13[176]as[178]141[176]as[178]20[167]1270
  114. 1230 [139][194](653)[178]2[176][194](653)[178]4[176]as[178]148[167]1210
  115. 1240 [139]lw[178]limit [175](as[179][177]20[175]as[179][177]13[175]as[179][177]141)[167]1210
  116. 1250 [139]as[178]34[176](as[177][178]133[175]as[179][178]140)[176](as[177][178]1[175]as[179][178]31)[167]1210
  117. 1260 w$[178]w$[170]a$:[153]a$">waitcmd";:lw[178][195](w$):[137]1210
  118. 1270 [139]as[178]20[175]w$[179][177]""[167]w$[178][200](w$,lw[171]1):[153]"cmd<wait cmdcmd";:[137]1210
  119. 1280 [139]as[178]20[175]w$[178]""[167]1210
  120. 1290 [139]as[178]13[167][153]" ";:li[178]0:[142]
  121. 1300 a$[178]"hello connect":[159]15,8,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15
  122. 1310 [139] er[179][177]63 [167] [153]"load":[128]
  123. 1320 q$[178][199](34):[151]646,[194](53281):[153]"load"
  124. 1330 [153]"load"q$a$q$",8"
  125. 1340 [153]"run":[151]631,13:[151]632,13:[151]198,2:[128]
  126.